home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / SourceCode / Tutorial / Cookbook / 28.Motion / paddle.yap < prev    next >
Text File  |  1995-06-12  |  125b  |  13 lines
  1. /square
  2. { newpath
  3. 0 0 moveto
  4. 90 0 lineto
  5. 0 20 rlineto
  6. -90 0 rlineto
  7. closepath fill
  8. } def
  9.  
  10.  -20 rotate
  11. 30 70 translate
  12. square
  13.